Imports System.Collections.Generic
Imports System.Text

Namespace Core
	<Record(FieldMapping := FieldMapping.ExplicitColumnsOnly)> _
	Friend NotInheritable Class DbfColumnHeader
		<Column(Width := 11, Type := DbfDotNet.ColumnType.DBASE3_CHARACTER)> _
		Public ColumnName As String

		<Column(Width := 1, Type := DbfDotNet.ColumnType.DBASE3_CHARACTER)> _
		Public ColumnType As Char

		<Column(AdvancedType := DbfDotNet.AdvancedColumnType.DELAYED, Width := 4)> _
		Public FieldDataAddress As Byte()

		<Column(AdvancedType := DbfDotNet.AdvancedColumnType.[BYTE])> _
		Public ColumnWidth As Byte

		<Column(AdvancedType := DbfDotNet.AdvancedColumnType.[BYTE])> _
		Public Decimals As Byte

		<Column(AdvancedType := DbfDotNet.AdvancedColumnType.DELAYED, Width := 14)> _
		Public Reserved2 As Byte()

		Public Sub New()
		End Sub

		Public Sub a()
			FieldDataAddress = Nothing
			Reserved2 = Nothing
		End Sub
	End Class
End Namespace
